﻿namespace ClearLines.Bumblebee

open System

/// <summary>Solver solution with its quality and discovery time.</summary>
type SolutionMessage<'s> (solution: Solution<'s>) =
   
   let definition = solution.Definition
   let quality = solution.Quality
   let dateTime = DateTime.Now

   member this.Solution = definition
   member this.Quality = quality
   member this.DateTime = dateTime